home *** CD-ROM | disk | FTP | other *** search
/ AOL File Library: 2,801 to 2,900 / aol-file-protocol-4400-2801-to-2900.zip / AOLDLs / TAWUG / TAWUG Disk No. 69 (SHK) / TAWUG69.shk / ULTRAMACROS (.txt) < prev   
AppleWorks Document  |  1988-05-01  |  16KB  |  265 lines
  1. O===============================================================================
  2. LFor UltraMacro users here are some macros. The macros are for use mainly in N
  3. Lthe wordprocessor. If you have an Hard Drive try item #6 from the Menu also 
  4. sa-b.
  5. To use the Menu;
  6. 1. Compile this file.'
  7. 2. Remove all files from the desktop.C
  8. 3. Set up a file named "Menu" or whatever, with LM at 0, RM at 0.
  9. 4. Press BA-M
  10. JIf you want to use this Menu on startup of Appleworks type oa-esc, choose M
  11. KMacro Options, choose item 3, answer "yes" to the only question. Next time I
  12. you start up, the file "Menu" will be set up and  the macros activated.O
  13. ----------------------------------------------------------------------------- 
  14. A way to organize your macros.
  15.                       ******* FILE INDEX ******B
  16.    Marker #               Macros or Execution (use sa-M to find)P
  17. ============================================================================= 
  18. |    1   |    Main Menu 
  19. |    2   |    Business Menu 
  20. |    3   |    Personal Menu -
  21. |    4   |    General use macros (start of)
  22. |    5   |    Future
  23. |    6   |    SA- Macros!
  24. |    7   |    SA-Control macros
  25. |    8   |    BA- Macros"
  26. |    9   |    BA- Control macros&
  27. |    10  |    Other character macrosO
  28. =============================================================================
  29. Start
  30. M:<awp><oa-f>M<input : rtn : rtn : oa-z>!   find pre set marker
  31. Set a marker at the start of each macro section. (for use with system above)
  32. EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
  33. A MENU PROGRAM WITH ALL SORTS OF GOODIES,
  34. ------------------------------------------.
  35. This Menu system needs a file on the desktop
  36.           >>>>>>>Set up file for menu at start up only<<<<<<<L
  37. JThis macro is set up to be used at start up only. It sets up a file named I
  38. G"Menu" as the first file on the desktop.  The first three rtn's are to M
  39. Keliminate "Press Space Bar" "date" ect. The patch to Appleworks to do this O
  40. Mseems to interferer with UltraMacros. It could easily be other patches to my 
  41. copy of Appleworks.D
  42. B<ba-<>:<awp : rtn : rtn : rtn>3<rtn : rtn>Menu<rtn : oa-t>R<esc : M
  43. Koa-o>lm<rtn>0<rtn>rm<rtn>0<rtn : esc : rtn : goto ba-=>!   Use ba-M to get ,
  44. menu once the file "Menu" has been set up.
  45.               For use to set up the menu system only ONCEE
  46. C<ba->>:<awp : oa-q : esc : rtn>3<rtn : rtn>Menu<rtn : oa-t>R<esc : M
  47. Koa-o>lm<rtn>0<rtn>rm<rtn>0<rtn : esc : rtn : goto ba-=>!   Use ba-M to get ,
  48. menu once the file "Menu" has been set up.
  49.                            { clear menu area }N
  50. L<ba-*>:<all><$0 = "Menu" : oa-q : find : rtn : oa-1 : oa-down : up : oa-y : P
  51. Ndel : del : up : oa-y : del : up : oa-y : del : up : oa-y : del : up : oa-y : P
  52. Ndel : up : oa-y : del : up : oa-y : del : up : oa-y : del : up : oa-y : del : N
  53. Ldown : down : down : down : down : down : down : down : down : down : del : 1
  54. del : del : del : del : del : del : del : del>!
  55. <ba-^>:<awp :            { print menu to screen routine },
  56. rtn : print "     1.  " : print $1 : rtn :,
  57. rtn : print "     2.  " : print $2 : rtn :,
  58. rtn : print "     3.  " : print $3 : rtn :,
  59. rtn : print "     4.  " : print $4 : rtn :,
  60. rtn : print "     5.  " : print $5 : rtn :,
  61. rtn : print "     6.  " : print $6 : rtn :,
  62. rtn : print "     7.  " : print $7 : rtn :
  63. rtn : rtn :K
  64. print "    M)AIN     ******     B)USINESS     ******     P)ERSONAL: ___">-
  65. <left : left : insert : oa-e>!             
  66. <ba-->:<all :O
  67. M msg '      Press   BA-M/Main        BA-B/Business        BA-P/Personal      
  68. =============================================================================+
  69.                            Main Menu Code>
  70.            -------------------------------------------------
  71.                 Print Main Menu Selections on Screen"
  72. <ba-m>:<all : ba-* : goto ba-=>!
  73. <ba-=>:<awp>6
  74. <print "                   *  MAIN  MENU  *" : rtn :
  75.  $1 = "Catalog Disk " :!
  76.  $2 = "Change Sub Directory " :#
  77.  $3 = "Change Drive, Get Files" :
  78.  $4 = "FileMaster " : 
  79.  $5 = "Change Printer Info " :+
  80.  $6 = "Backup Files in a Dir To Floppy" :Q
  81. O $7 = "Another UM Task File" : ba-^ : goto ba-&>!                              %
  82.                                    "
  83. <ba-&>:<awp : begin : c = key : 3
  84.                { Get a keystroke Main Menu only }I
  85.  if c = 49 then sa-c : ba-m : stop : else : { catalog, return  to Menu}N
  86. L if c = 50 then oa-esc>1<rtn : rtn : oa-rtn : msg ' -- YOU CAN SELECT, ADD, Q
  87. OOR DROP A TOTAL OF 4 TIMES -- ' : ba-| :                    {1st choice}       Q
  88. Omsg ' -------------THREE    LEFT-------------- ' : ba-| :  {2nd choice}        Q
  89. Omsg ' ---------------TWO    LEFT-------------- ' : ba-| :  {3rd choice}        I
  90. msg ' ---------------ONE    LEFT-------------- ' : ba-| :  {4th choice}L
  91. J oa-q>4<oa-rtn : ba-m : stop : else :{crude but it does work if you don't "
  92. have path finder by Randy Brant}M
  93. K if c = 51 then oa-q : esc : rtn>2<rtn : input : rtn : rtn : input : rtn : =
  94. oa-q : stop : else :                         {change drive}.
  95.  if c = 52 then oa-esc>1<rtn : stop : else :O
  96. M if c = 53 then oa-q : esc>5<rtn>7<rtn>4<rtn : stop : else : {change printer 
  97. info}+
  98.  if c = 54 then goto ba-% : stop : else :M
  99. K if c = 55 then oa-esc>3<rtn : rtn><$0 = "Your.Name" : find : rtn : ba-s : 2
  100. stop : else :           { get another task file}0
  101.                         { select other menus }@
  102.  if c = 98 then goto ba-b : stop : else :    { business menu }@
  103.  if c = 112 then goto ba-p : stop : else :   { personal menu }K
  104. I if c = 27 then stop : else :{ exit } bell rpt>! illegal key so beep and 
  105. repeat the keyin section
  106.                          Support MacrosL
  107. J<ba-|>:<all : input : rtn : input : rtn : oa-q : rtn : oa-rtn>!   used by 
  108. item 2 above
  109. LA method to backup from Hard Drive to floppy, set the floppy up the same as K
  110. Ithe Hard Drive except the volume name must be different (study the macro N
  111. Lbelow). The macro will save all "unsaved" files in a directory. It uses the F
  112. Prodos backup bit. Must have FileMaster by good old Beagle Brothers.L
  113. J<ba-%>:<all : oa-q : esc : msg '       DOUBLE CHECK THE DIRECTORY! ++++++ M
  114. KCtrl-@ if Not / Return to Cont      ' : input : oa-esc>1<rtn : rtn>2<rtn : L
  115. Jrtn : up : rtn : insert : oa-e>/Da1<rtn>y<rtn : onerr goto ba-? : begin : P
  116. Noa-r>cv<right : oa-rtn : rtn>2<rtn : rtn : rtn>y<rtn : rpt>! { used by item 6     
  117. above }
  118. N<ba-?>:<all : oa-q>4<rtn : oa-q>1<rtn : msg ' ALL FILES EITHER SAVED, ABORTED P
  119. N** OR ** NONE TO SAVE ** ANY KEY TO CONTINUE ' : key : goto ba-m>!       used I
  120. by ba-% above    (Experience will teach you which of the three is true)
  121.                         End of Main Menu CodeL
  122. ==========================================================================
  123.                            Busi Menu Code>
  124.            -------------------------------------------------
  125.                 Print Main Menu Selections on Screen"
  126. <ba-b>:<all : ba-* : goto ba-+>!
  127. <ba-+>:<awp>5
  128. <print "               *  BUSINESS  MENU  *": rtn :@
  129.  $1 = "Contracts / Billing" :                  {menu options }
  130.  $2 = "Estimates" :
  131.  $3 = "Letters" :
  132.  $4 = "Customer Database" :
  133.  $5 = "Miscellaneous" :-
  134.  $6 = "Data Base of info, procedures ect" :8
  135.  $7 = "Backup File dir to floppy" : ba-^ : goto ba-\>!
  136. <ba-\>:<awp : begin : c = key :3
  137.                { Get a keystroke Busi Menu only }6
  138. 4 if c = 49 then oa-q : esc : rtn>2<rtn : up : rtn : N
  139. Loa-y>/HD1/BUISNESS/ESTIMATE<rtn : rtn : input : rtn : stop : else :         
  140. {set path for estimates}6
  141. 4 if c = 50 then oa-q : esc : rtn>2<rtn : up : rtn : M
  142. Koa-y>HD1/BUISNESS/CONTRACTS<rtn : rtn : input : rtn : stop : else :        
  143. {set path for contracts}6
  144. 4 if c = 51 then oa-q : esc : rtn>2<rtn : up : rtn : L
  145. Joa-y>/HD1/BUISNESS/LETTERS<rtn : rtn : input : rtn : stop : else :        
  146. {set path for letters}5
  147. 3 if c = 52 then oa-q : esc : rtn>2<rtn : up><rtn : M
  148. Koa-y>/HD1/BUISNESS/CUSTOMER<rtn : rtn : input : rtn : stop : else :        
  149. {set path for customer}6
  150. 4 if c = 53 then oa-q : esc : rtn>2<rtn : up : rtn : Q
  151. Ooa-y>/HD1/BUISNESS/MISC<rtn : rtn : input : rtn : stop : else :                #
  152.               {set path for misc}6
  153. 4 if c = 54 then oa-q : esc : rtn>2<rtn : up : rtn : Q
  154. Ooa-y>/HD1/BUISNESS/DATABASE<rtn : rtn : input : rtn : stop : else :            '
  155.               {set path for database}J
  156. H if c = 55 then goto ba-% : stop : else : {backup all files in dir with 
  157. filemaster}              $
  158.             { select other menus }<
  159.  if c = 109 then goto ba-m : stop : else :   { main menu }@
  160.  if c = 112 then goto ba-p : stop : else :   { personal menu }(
  161.  if c = 27 then stop : else : { exit }B
  162.   bell rpt>!    illegal key so beep and repeat the keyin section
  163.                         End of Busi Menu CodeL
  164. ==========================================================================
  165.                        Personal Menu Code>
  166.            -------------------------------------------------
  167.                 Print Main Menu Selections on Screen'
  168. <ba-p>:<all : ba-* : goto ba-ctrl-v>!
  169. <ba-ctrl-v>:<awp>5
  170. <print "               *  PERSONAL  MENU  *": rtn :/
  171.  $1 = "Letters Computer" :    {menu options }
  172.  $2 = "Letters Personal" :
  173.  $3 = "Letters Misc" :
  174.  $4 = "Database" :
  175.  $5 = "Future Item" :
  176.  $6 = "Future Item" :,
  177.  $7 = "Miscellaneous" : ba-^ : goto ba-!>!
  178. <ba-!>:<awp : begin : c = key :3
  179.                { Get a keystroke Main Menu only }O
  180. M if c = 49 then esc><rtn>2<rtn><up : rtn : oa-y>/Hd1/PERSONAL/LETTER/C<rtn : M
  181. rtn : input : rtn : oa-q : stop : else      {set path for letters computer}O
  182. M if c = 50 then esc><rtn>2<rtn><up><rtn><oa-y>Hd1/PERSONAL/LETTER/P<rtn><rtn N
  183. : input : rtn : oa-q : stop : else :        {set path for letters  personal}P
  184. N if c = 51 then esc><rtn>2<rtn : up : rtn : oa-y>/Hd1/PERSONAL/LETTER/M/<rtn: J
  185. rtn  : input : rtn : oa-q : stop : else :   {set path for letters  misc}O
  186. M if c = 52 then esc : rtn>2<rtn : up : rtn : oa-y>/Hd1/PERSONAL/DATABASE<rtn M
  187. : rtn : input : rtn : oa-q : stop : else :   {set path for  Database items},
  188.  if c = 53 then print "5"  : stop : else :+
  189.  if c = 54 then print "6" : stop : else :M
  190. K if c = 55 then esc : rtn>2<rtn : up : rtn : oa-y>/Hd1/PERSONAL/MISC<rtn : M
  191. rtn : input : rtn : oa-q : stop : else : {set path for Miscellaneous items})
  192.                  { select other menus }@
  193.  if c = 98 then goto ba-b : stop : else :    { busuness menu }<
  194.  if c = 109 then goto ba-m : stop : else :   { main menu }(
  195.  if c = 27 then stop : else : { exit }B
  196.   bell rpt>!    illegal key so beep and repeat the keyin section
  197.                         End of Personal MenuN
  198. ============================================================================
  199. <ctrl-[>:<all : q = peek $C54 : oa-q : esc>!@
  200.            {get current file number and leave file use BA-ESC}@
  201.                                                    -----------9
  202. R:<all : oa-q : print q : rtn>!          return to file9
  203.       these macros are used by other macros below also.O
  204. -----------------------------------------------------------------------------
  205. A:<all><oa-Q esc rtn rtn>!   add files to Desktop from anywhere in AW
  206. I<ctrl-A>:<all><esc : rtn : down : rtn : up : rtn : cell : rtn {save path O
  207. Mname}: down : rtn : x = key : print chr$ x : if x < 55 then goto ba-_ : else '
  208. if x > 54 then : input : rtn : sa-_>!
  209. L<ba-_>:<all : input : rtn : rtn :{select new drive} input : rtn {select new K
  210. Ifile}: esc : rtn : down : rtn : up : rtn : oa-y : sa-0 : rtn {reset path '
  211. name}: oa-q>1<up>! original directoryN
  212. LFor this macro to work properly choose drive or directory by number instead 
  213. of using the arrows.
  214. -----------------------------------------------------------------------------+
  215.                           Catalog a disk.P
  216. N Stops to let you choose a drive or directory, catalogs same then returns you 
  217. to the file you left.
  218. JC:<all : q = peek $c54 : sa-ctrl-[ : rtn>2<rtn><msg '   CHOOSE A DRIVE OR N
  219. LPDODOS DIRECTORY by PRESSING A NUMBER THEN PRESS RETURN  '><x = key : print M
  220. Kchr$ x : if x < 55 then input : rtn : sa-~ : else if x > 54 then : input : =
  221. rtn : input : rtn : sa-~>!   Catalog drive, return to file.
  222. ~:<all : esc>5<rtn>2<rtn : input : sa-r>! routine for above
  223. -----------------------------------------------------------------------------?
  224.                      Save a file with reminder to rename file
  225. OS:<all><msg '         Have you changed the file name???    If not do so now!   M
  226.          '><oa-n><input><rtn><oa-S>!  reminder to rename file before saving
  227. -----------------------------------------------------------------------------)
  228.                            Save a file.G
  229. EReminds you to rename the file, lets you choose a drive or type in a H
  230. Fdirectory, saves the file, returns you to file you left and restores  M
  231. Koriginal directory if thats where you were at the beginning. Does not save ;
  232. orignal "drive" just a Prodos directory will be restored.
  233. L<Ctrl-S>:<all><msg '         Have you changed the file name???    If not do O
  234. Mso now!            '><oa-n : input : rtn : sa-ctrl-[ : rtn : down : rtn : up L
  235. J: rtn : cell : rtn : down : rtn : x = key : print chr$ x : if x < 55 then 9
  236. goto sa--  : else if x > 54 then : input : rtn : sa-->!
  237. N<sa-->:<awp : input : rtn : rtn : sa-r : oa-s {save file}: esc : rtn : down : O
  238. Mrtn : up : rtn : sa-0 : rtn :{reset path name}sa-r>!    save file to another 1
  239. disk or directory, return to original directoryN
  240. LFor this macro to work properly choose drive or directory by number instead 
  241. of using the arrows.O
  242. -----------------------------------------------------------------------------P
  243. N<ba-rtn>:<all><oa-tab : oa-tab : oa-tab : oa-tab : oa-tab : oa-tab : oa-tab : J
  244. Hoa-tab : oa-tab : oa-tab : oa-tab : oa-tab : oa-tab : oa-tab : oa-tab : ,
  245. oa-tab : oa-tab : oa-tab : oa-tab : down>!-
  246.                  A typewriter like "return"
  247. -----------------------------------------------------------------------------?
  248. <ba-q>:<all $0 = "QuickSpell" : oa-esc : find : wait : stop>!@
  249.                 Use Spell checker (must have Beagle Bros pgrm)
  250. -----------------------------------------------------------------------------8
  251.                   Backup file on desktop to disk drive
  252. OB:<all : q = peek $c54 : oa-n><msg ' **  HAVE YOU RENAMED THE FILE???  **      P
  253. NPRESS RETURN IF FINE  ** '><input : rtn : oa-q : esc : rtn>2<rtn : up : rtn : J
  254. Hinsert : oa-e>/Da1{put the name of your floppy volume, must be the same O
  255. Mamount of letters as the HD}<rtn : sa-r : oa-s : oa-q : esc : rtn>2<rtn : up P
  256. N: rtn : insert : oa-e>/HD1<{put the name of your hard drive here}rtn : sa-r : O
  257. Mmsg  '   *****    FILE SAVED    *****    PRESS RETURN   *****    ' : input : 
  258. key : msg " ">! 
  259. A method for Hard Drive users.O
  260. MThis macro will enable you to save a file to a floppy set up the same as the P
  261. NHard Drive yet keep the path set for the Hard Drive.  Must have Filemaster by 
  262. Beagle Brothers.
  263. -----------------------------------------------------------------------------
  264. Thomas J. Scott
  265.